home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / QWKIEFRE.SFX / qwkie.zipper (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-11-20  |  2.3 KB  |  20 lines
  1. 10 INPUT".MSG FILENAME";F$:IFF$=""THEN10
  2. 15 IFRIGHT$(F$,4)<>".MSG"THENF$=F$+".MSG"
  3. 20 POKE49152,LEN(F$)
  4. 25 FORI=1TOLEN(F$):POKE49152+I,ASC(MID$(F$,I,1)):NEXT
  5. 30 INPUT"DEVICE NO.";D1$
  6. 35 D1=VAL(D1$):IFD1<8THEN30
  7. 40 INPUT"OUTPUT DEVICE NO.";D2$
  8. 45 D2=VAL(D2$):IFD2<8THEN40
  9. 50 OPEN2,D1,2,F$+",R"
  10. 55 OPEN12,D1,15
  11. 60 F2$=LEFT$(F$,LEN(F$)-4)+".REP"
  12. 65 OPEN3,D2,3,F2$+",S,W"
  13. 70 OPEN13,D2,15
  14. 75 INPUT#12,E$,I$,J$,J$
  15. 80 IFE$<>"00"THENPRINT"DEVICE"D1"[157]:"I$:GOTO100
  16. 85 INPUT#13,E$,I$,J$,J$
  17. 90 IFE$<>"00"THENPRINT"DEVICE"D2"[157]:"I$:GOTO100
  18. 95 PRINT"[215]ORKING ";:SYS 11*256
  19. 100 FORI=0TO15:CLOSEI:NEXT
  20.